5 SD=54272:FORI=SDTOSD+23:POKEI,0:NEXT:POKESD+24,15:POKE788,52:P$="MENU RUNNER"
10 GOTO115
15 POKE V+21,0:PRINT"[147]"
17 PRINTTAB(14)"[159]LOADING ME[158]N[159]U":PRINT"[144]LOAD"CHR$(34)P$CHR$(34)",8"
20 POKE198,4:POKE631,13:POKE632,82:POKE633,213:POKE634,13:END
25 PRINT"[147]":POKEV+21,0:POKE53280,14:POKE53281,14:SYS64738
30 FOR W=1 TO 1700:NEXT W
35 POKE 198,0
40 FOR C=1 TO 10
45 GET C$:IF C$="[136]"THEN15
50 IF C$="[140]"THEN25
55 IF C$<>"[136]"ANDC$<>"[140]"ANDC$<>""THEN115
60 NEXT
65 PRINTTAB(13)"[146]PRESS ANY KEY[145]"
70 FOR D=1 TO 35
75 GET D$:IF D$="[136]"THEN15
80 IF D$="[140]"THEN25
85 IF D$<>"[136]"ANDD$<>"[140]"ANDD$<>""THEN115
90 NEXT
95 PRINTTAB(13)"[152]PRESS[146] ANY[146] KEY[145]"
100 GOTO40
105 PRINTTAB(19)"[145]             [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:RETURN
110 PRINTTAB(21+LEN(S$))"[145] [157]":S$="":RETURN
115 GOSUB720:PRINT CHR$(142);CHR$(8)"[147]":POKE198,0:POKE53280,12:POKE53281,0
120 FOR X=1 TO 2:POKEV+21,0:MD=0:L=0:Y$="0":M$="0":D$="0":AH$="0"
125 IF X=1 THEN PRINTTAB(7)" FROM:[146]"TAB(13)
130 IF X=2 THEN PRINTTAB(9)" TO:[146]"TAB(13)
135 PRINT" YEAR ?[150] ";:Y$=""
136 IF XX>10 THEN XX=0
137 IF XX>5 THEN PRINT" [157]";:GOTO 142
140 PRINT"[164][157]";
142 GET A$
145 IF A$="[136]"THEN15
150 IF A$="[140]"THEN25
155 IF A$=CHR$(19) THEN115
160 IF A$=CHR$(20) THEN PRINT:GOSUB720:GOSUB105:GOTO135
165 IF A$=CHR$(13) THEN PRINT:S$=Y$:GOSUB110:GOTO185
170 IF A$<"0" OR A$>"9" THEN182
175 IF LEN(Y$)>3 THEN 182
180 PRINT A$;:Y$=Y$+A$
182 XX=XX+1:GOTO 136
185 YY=VAL(Y$)
190 IF YY>2500 OR YY<1582 THEN GOSUB105:GOTO135
195 PRINTTAB(13):GOSUB720
200 PRINT" MONTH?[150] ";:M$=""
202 IF XX>10 THEN XX=0
203 IF XX>5 THEN PRINT" [157]";:GOTO 207
205 PRINT"[164][157]";
207 GET A$
210 IF A$=CHR$(19) THEN115
215 IF A$=CHR$(20) THEN PRINT:GOSUB720:GOSUB105:GOTO200
220 IF A$=CHR$(13) THEN PRINT:S$=M$:GOSUB110:GOTO240
225 IF A$<"0" OR A$>"9" THEN237
230 IF LEN(M$)>1 THEN 237
235 PRINT A$;:M$=M$+A$
237 XX=XX+1:GOTO 202
240 MM=VAL(M$)
245 IFMM<1ORMM>12 THEN GOSUB105:GOTO200
247 IF YY=1582 AND MM<10 THEN GOSUB 105:GOTO 200
250 PRINTTAB(13):GOSUB720
255 PRINT" DAY  ?[150] ";:D$=""
257 IF XX>10 THEN XX=0
258 IF XX>5 THEN PRINT" [157]";:GOTO 262
260 PRINT"[164][157]";
262 GET A$
265 IF A$=CHR$(19) THEN115
270 IF A$=CHR$(20) THEN PRINT:GOSUB720:GOSUB105:GOTO255
275 IF A$=CHR$(13) THEN PRINT:S$=D$:GOSUB110:DD=VAL(D$):GOTO305
280 IF A$<"0" OR A$>"9" THEN292
285 IF LEN(D$)>1 THEN 292
290 PRINT A$;:D$=D$+A$
292 XX=XX+1:GOTO 257
295 IF MM=2 AND DD>29 THEN GOSUB105:GOTO255
300 GOTO315
305 IF((YY/4=INT(YY/4))AND(YY/100<>INT(YY/100)))OR(YY/400=INT(YY/400))THEN295
310 IF MM=2 AND DD>28 THEN GOSUB105:GOTO255
315 IF(MM=4 OR MM=6 OR MM=9 OR MM=11)AND DD>30 THEN GOSUB105:GOTO255
320 IF DD<1 OR DD>31 THEN GOSUB105:GOTO255
325 DD=DD-1
327 IF YY=1582 AND MM=10 AND DD<14 THEN GOSUB 105:GOTO 255
330 PRINTTAB(13):GOSUB720
335 PRINT" HOUR ?[150] ";:AH$="":AP$=""
337 IF XX>8 THEN XX=0
338 IF XX>4 THEN PRINT" [157]";:GOTO 343
340 PRINT"[164][157]";
343 GET A$
345 A=VAL(A$)
350 IF A$=CHR$(19) THEN115
355 IF A$=CHR$(20) THEN PRINT:GOSUB720:GOSUB105:GOTO335
360 IF A$=CHR$(13) THEN PRINT:S$=AH$:GOSUB110:GOTO395
365 IF A$="A" OR A$="P" OR A$="M" THEN375
370 IF A$<"0" OR A$>"9" THEN392
375 IF LEN(AH$)>3 THEN 392
380 PRINT A$;
385 IF A$<>RIGHT$(STR$(A),LEN(A$))THEN AP$=AP$+A$
390 AH$=AH$+A$
392 XX=XX+1:GOTO 337
395 AH=VAL(AH$)
400 IF AH<1 OR AH>12 THEN GOSUB105:GOTO335
405 AQ$=RIGHT$(AH$,2)
410 IF AQ$<>AP$ THEN GOSUB105:GOTO335
415 IF AQ$<>"AM" AND AQ$<>"PM" THEN GOSUB105:GOTO335
420 IF AP$="AM" AND AH=12 THEN AH=0
425 IF AP$="PM" AND AH<12 THEN AH=AH+12
430 AH=AH/24
435 GOSUB720
440 IF X=1 THEN YR=YY:MR=MM:DR=DD:AR=AH
445 FOR MN=1 TO MM-1
450 DC=31
455 IF MM=1 THEN DC=0
460 IF MN=2 THEN DC=28
465 IF MN=4 OR MN=6 OR MN=9 OR MN=11 THEN DC=30
470 MD=MD+DC
475 NEXT MN
480 IF X=1 THEN M1=MD:MD=0
485 PRINT:PRINT:NEXT X
490 PRINTTAB(14)"WORKING...";
495 Y1=YR*365:YD=YY*365:Y=(YD+MD+DD+AH)-(Y1+M1+DR+AR):N=SGN(Y):GOSUB690
505 TY=ABS(Y):Y2=ABS(TY)*1000+.5:YT=SGN(TY)*INT(Y2)/1000
510 NY=YT/365:DF=NY-INT(NY):NM=DF*12:ND=DF*365:HF=ND-INT(ND):HR=HF*24
515 IF HR>23.5 THEN ND=ND+1:HR=0
520 B=ABS(NM)*10+.5:MN=SGN(NM)*INT(B)/10:YS=INT(NY)
525 IF MN=12 THEN YS=INT(NY)+1:MN=0
530 AL=ABS(L):LD=INT(AL):LF=AL-LD:LH=LF*24:TD=INT(YT)+LD
535 TH=HR+LH
540 IF TH>23.5 THEN TD=TD+1:TH=HR+LH-24
545 GOSUB730
550 PRINT"[157][157][157][157][157][157][157][157][157][157]          "
555 PRINTTAB(1)"[145][145][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
560 PRINTTAB(15)"[145][157]OR[157]";"[181][157]";"[181][157]";"[181][157]";"[181][157]";"[181][157]";"[181]"
565 PRINTTAB(3)"[145][145][145][145][145][145][145]YEARS[155]"YS
570 PRINTTAB(2)"MONTHS[155]"MN
575 PRINTTAB(22)"[145][145]YEARS[156]"INT(NY)
580 PRINTTAB(23)"DAYS[156]"INT(ND)
585 PRINTTAB(22)"HOURS[156]"INT(HR+.5)
590 PRINTTAB(18)"LEAP DAYS[154]"LD;
595 PRINT"HRS[154]"INT(LH+.5)
600 PRINTTAB(17)"TOTAL DAYS[159]"TD
605 PRINTTAB(16)"TOTAL HOURS[159]"INT(TH+.5)
610 PRINT:GOTO30
615 IF N=1 THEN655
620 IF MM<3 THEN630
625 IF((YY/4=INT(YY/4))AND(YY/100<>INT(YY/100)))OR(YY/400=INT(YY/400))THENL=L-1
630 IF MR>2 THEN640
635 IF((YR/4=INT(YR/4))AND(YR/100<>INT(YR/100)))OR(YR/400=INT(YR/400))THENL=L-1
640 IFMM=2ANDDD=28THENL=L-AH:Y=Y-AH
645 IFMR=2ANDDR=28THENL=L+AR:Y=Y+AR
650 GOTO715
655 IF MM>2 THEN665
660 IF((YY/4=INT(YY/4))AND(YY/100<>INT(YY/100)))OR(YY/400=INT(YY/400))THENL=L-1
665 IF MR<3 THEN675
670 IF((YR/4=INT(YR/4))AND(YR/100<>INT(YR/100)))OR(YR/400=INT(YR/400))THENL=L-1
675 IFMM=2ANDDD=28THENL=L+AH:Y=Y-AH
680 IFMR=2ANDDR=28THENL=L-AR:Y=Y+AR
685 GOTO715
690 FOR X=YY TO YR STEP1*SGN(YR-YY)
695 IF((X/4=INT(X/4))AND(X/100<>INT(X/100)))OR(X/400=INT(X/400))THEN L=L+1
700 NEXT
705 IF((YY/4=INT(YY/4))AND(YY/100<>INT(YY/100)))OR(YY/400=INT(YY/400))THEN615
710 IF((YR/4=INT(YR/4))AND(YR/100<>INT(YR/100)))OR(YR/400=INT(YR/400))THEN615
715 RETURN
720 POKESD+5,8:POKESD+6,240:POKESD,0:POKESD+1,90:POKESD+4,17:FORS=1TO100:NEXT
725 GOTO735
730 POKESD+5,8:POKESD+6,240:POKESD,0:POKESD+1,90:POKESD+4,17:FORS=1TO500:NEXT
735 POKESD+4,0:POKESD,0:POKESD+1,0:RETURN